unit Class_K8;

interface
uses
  SysUtils, Classes, DataEngine;

type
  TK8 = class(TBaseClass)
  public
    KMBM: string;
    KMMC: string;
    KMLB: string;
    ZBXS: string;
    YEFX: string;
    WBZL: string;
    TBKM: string;
    JLDW: string;
    YNXJ: string;
    USEKH: string;
    USEBM: string;
    USEZY: string;
    JZXN: string;
    KHGROUP: string;
    KMGP: string;
    JC: string;
    YNNC: string;
    YNNYS: string;
    YNGQ: Integer;
  public
    function GetFullName: string;

    destructor Destroy; override;
  end;

implementation

{ TK8 }

destructor TK8.Destroy;
begin
  inherited;
end;

function TK8.GetFullName: string;
begin
  Result := '[' + KMBM + ']' + KMMC;
end;

end.
